Diccionario Visual Trilingue/VISUAL.iso/SHARED.DIR/10088_Init CD.ls

Text File | 1997-07-04 | 5.4 KB | 159 lines

on StartDebuger
  global gMLxDebuger
  if gMLxDebuger = "Not init" then
    set gMLxDebuger to rect(2, 16, 194, 496)
    set gMLxDebuger to window "MLxDebug"
    set the titleVisible of gMLxDebuger to 1
    open(gMLxDebuger)
  end if
end

on CloseDebuger
  global gMLxDebuger
  if objectp(gMLxDebuger) then
    close(gMLxDebuger)
    forget(gMLxDebuger)
    set gMLxDebuger to 0
  end if
end

on MLxPut AString
  global gMLxDebuger
  StartDebuger()
  tell gMLxDebuger
    DebugingPut(string(AString))
  end tell
end

on MLxScan TheHandler
  global gMLxDebuger
  StartDebuger()
  tell gMLxDebuger
    HandlerPut(TheHandler)
  end tell
end

on CheckSetUp
  global gInterfaceLanguage, gDataPath, gPrefsPath, gSrcPrefsPath, gLstError, gNbErr, gDrawingObject, gEditorLanguage
  set gInterfaceLanguage to gEditorLanguage
  set gLstError to value(the text of cast 10090)
  unLoadCast(10090)
  set gNbErr to count(gLstError) / 3
  if the machineType = 256 then
    set gSrcPrefsPath to the moviePath & "zDATA_P\"
    openXLib("MOVUTILS.DLL")
    openXLib("PMATIC.DLL")
    if not objectp(gDrawingObject) then
      set gDrawingObject to MovUtils(mnew)
    end if
  else
    set gSrcPrefsPath to the moviePath & "zDATA_M:"
  end if
  InitPrefs()
  InitLogFile(0)
  if the machineType = 256 then
    checkError(the colorDepth < 8, #SVGA, 1, "Startmovie : Windows mode graphique moins de 256 couleurs.", 1)
    checkError(the colorDepth > 8, #GRAPH, 1, "Startmovie : Windows mode graphique plus de 256 couleurs.", 0)
  else
    set the colorDepth to 8
  end if
  set gDataPath to gPrefsPath
  set FileLst to ["Words1.001", "Words1.003", "Words1.002", "Words2.001", "Words2.003", "Words2.002", "Words3.001", "Words3.003", "Words3.002", "Words4.001", "Words4.003", "Words4.002", "Words5.002", "Words5.001", "Words5.003", "Pages_i.all", "Pages_c.all", "labels.fra", "labl_ind.fra", "1THEME.NVG", "2STHEME.NVG", "3TITRE.NVG", "4ECRAN.NVG", "5ECRAN.LST", "IdxTerms.002", "IdxTerms.001", "IdxTerms.003", "TERMS.002", "TERMS.001", "TERMS.003", "Thems.002", "Thems.001", "Thems.003", "Titles.002", "Titles.001", "Titles.003", "SCNSND.DAT", "SCNSND.NDX", "NAVSND.DAT", "NAVSND.NDX", "SNDPRM.TXT", "6HDR.NVG", "6HDRind.NVG", "7THOFST.NVG"]
  set FileOk to 1
  set MissingFile to EMPTY
  repeat with i = 1 to count(FileLst)
    set Temp to FileIO(mnew, "READ", gDataPath & getAt(FileLst, i))
    set FileOk to FileOk and objectp(Temp)
    if objectp(Temp) then
      Temp(mdispose)
      next repeat
    end if
    set MissingFile to MissingFile & " : " & getAt(FileLst, i)
  end repeat
  checkError(FileOk, #DataBase, 1, "CheckDataOnDisk" & MissingFile, 1)
end

on InitPrefs
  global gPrefsPath, gSrcPrefsPath, gEditorLanguage, gTextLanguage, gtheHDPath
  if the machineType = 256 then
    set gPrefsPath to gtheHDPath & getString(#DATAPATH, gEditorLanguage)
  else
    set SysFile to MyFolder(mnew)
    if checkError(SysFile, #MyFolder, 1, "MyFolder") then
      set gPrefsPath to gSrcPrefsPath
    else
      set gPrefsPath to SysFile(mDo, getString(#PREFDOCNAME, gEditorLanguage))
      SysFile(mdispose)
    end if
  end if
  set DPrefObj to FileIO(mnew, "READ", gPrefsPath & "visual.ini")
  if not objectp(DPrefObj) then
    set SPrefObj to FileIO(mnew, "READ", gSrcPrefsPath & "visual.ini")
    set DPrefObj to FileIO(mnew, "WRITE", gPrefsPath & "visual.ini")
    if checkError(DPrefObj, #FileIO, 0, "InitPrefs : Fichier de préférences impossible à créer.") then
      set gPrefsPath to gSrcPrefsPath
      alert(getString(#PREFSMISSING, gEditorLanguage))
    else
      set AFile to SPrefObj(mReadFile)
      DPrefObj(mWriteString, AFile)
      SPrefObj(mdispose)
      DPrefObj(mdispose)
      alert(getString(#PREFSCREATED, gEditorLanguage))
    end if
    set DPrefObj to FileIO(mnew, "READ", gPrefsPath & "visual.ini")
  end if
  if not ReadPrefs(DPrefObj) then
    DPrefObj(mdispose)
    set gPrefsPath to gSrcPrefsPath
    set DPrefObj to FileIO(mnew, "READ", gPrefsPath & "visual.ini")
    ReadPrefs(DPrefObj)
  end if
  DPrefObj(mdispose)
end

on ClosePrefs
  global gPrefsPath, gEditorLanguage
  set DPrefObj to FileIO(mnew, "WRITE", gPrefsPath & "visual.ini")
  if checkError(DPrefObj, #FileIO, 0, "ClosePrefs : Fichier de préférences impossible à créer.") then
    alert(getString(#PREFSINSTALL, gEditorLanguage))
  else
    WritePrefs(DPrefObj)
    DPrefObj(mdispose)
  end if
end

on ReadPrefs FileObj
  global gInterfaceLanguage, gTextLanguage, gSoundLevel, gTransitionType
  set LstProp to [:]
  set ReturnCode to 1
  set LstProp to value(FileObj(mReadLine))
  set gInterfaceLanguage to getaProp(LstProp, #InterfaceLanguage)
  set gTextLanguage to getaProp(LstProp, #TextLanguage)
  set gSoundLevel to getaProp(LstProp, #NiveauSon)
  set the soundLevel to gSoundLevel
  if the machineType = 256 then
    set gTransitionType to 0
  else
    set gTransitionType to 23
  end if
  if (gInterfaceLanguage < 1) and (gInterfaceLanguage > 3) then
    set ReturnCode to 0
  end if
  if (gTextLanguage < 1) and (gTextLanguage > 3) then
    set ReturnCode to 0
  end if
  if (gSoundLevel < 0) and (gSoundLevel > 255) then
    set ReturnCode to 0
  end if
  return ReturnCode
end

on WritePrefs FileObj
  global gInterfaceLanguage, gTextLanguage, gSoundLevel, gTransitionType
  set LstProp to [:]
  setaProp(LstProp, #InterfaceLanguage, gInterfaceLanguage)
  setaProp(LstProp, #TextLanguage, gTextLanguage)
  setaProp(LstProp, #NiveauSon, gSoundLevel)
  FileObj(mWriteString, string(LstProp))
end